SRT←10000;
INS 0 1; <  INSTRUMENT 1
SET P5;  < P5=ENV.
OSC P4 P9 B2 F4 P29;
RAN P7 P8 B3 P28 P27 P25;< RAND-INC   HAS 3 STORAGE PARAMS.
AD2 P3 B3 B3;   < ADD THE FREQS.
SET P6;  < TONE COLOR
OSC B2 B3 B2 F2 P26;
OUT B2 B1;END; <  ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!  

         
GEN 0 2 2 1 1; <SINE WAVE
GEN 0 1 4 .999 0  .999 511;< ENV. F4  STRAIGHT LINE, FULL AMPL.
GEN 0 1 5    0 0  .999 511;< GLISS F5  SLOPE UP
<GEN 0 1 5 .999 0  .999 255  0 256 0 511;< GLISS F5  DOWN TO 0 1/2 WAY THROUGH.
GEN 0 1 3   .999 0  .999 255 ,-.999 256  ,-.999 511;< SQUARE
   <GEN TYPE 1, F2

INSTRUMENTS;
SIMP 1 9  FREQ 3  7  DUR 8
END;
 
PLAY;
SIMP 0 .02   500 2000 F4  F2  250  .005; <=DUR OF RAN.HOLD
FINI;